unit editpicker;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, RzButton, ComCtrls;

type
  Teditpickerfrm = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    txtRFID: TEdit;
    txtName: TEdit;
    dtpBthday: TDateTimePicker;
    txtTFN: TEdit;
    cmbxTFNtype: TComboBox;
    cmbxContractor: TComboBox;
    txtLkman: TEdit;
    txtLkManTel: TEdit;
    txtAddress: TEdit;
    txtEmail: TEdit;
    txtExt: TEdit;
    txtHM_Tel: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    label14: TLabel;
    cmbxSex: TComboBox;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editpickerfrm: Teditpickerfrm;

implementation

{$R *.dfm}

uses includefile, dbmodule;

procedure Teditpickerfrm.RzBitBtn1Click(Sender: TObject);
begin
  ModalResult:=MrOk;
end;

procedure Teditpickerfrm.RzBitBtn2Click(Sender: TObject);
begin
  ModalResult:=MrCancel;
end;

procedure Teditpickerfrm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for I:=0 to ComponentCount-1 do begin
    if Components[I] is TLabel then begin
      if 0<>TLabel(Components[I]).Tag then
        TLabel(Components[I]).Caption:=
                GetCaption('editpickerfrm',TLabel(Components[I]).Tag);
    end;
    if Components[I] is TRzBitBtn then begin
      if 0<>TRzBitBtn(Components[I]).Tag then
        TRzBitBtn(Components[I]).Caption:=
                GetCaption('editpickerfrm',TRzBitBtn(Components[I]).Tag);
    end;
  end;
  dbmodulefrm.getcontractorlist(cmbxContractor.Items);
  cmbxSex.Items.Clear;
  cmbxSex.Items.Add('MALE');
  cmbxSex.Items.Add('FEMALE');
  cmbxTFNtype.Items.Clear;
  cmbxTFNtype.Items.Add('LOCAL');
  cmbxTFNtype.Items.Add('FW/TFN');
  cmbxTFNtype.Items.Add('F no TFN');
end;

end.
